home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / editor / gdphrc14.lha / ged-phrasecomp / Install next >
Text File  |  1996-04-18  |  2KB  |  117 lines
  1. ;
  2. ; $PROJECT: GoldED Phrase-Completion API-Client
  3. ;
  4. ; $VER: Install 1.1 (18.04.96)
  5. ;
  6. ; by
  7. ;
  8. ; Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  9. ;
  10. ; (C) Copyright 1996
  11. ; All Rights Reserved !
  12. ;
  13. ; $HISTORY:
  14. ;
  15. ; 18.04.96 : 001.001 : initial
  16. ;
  17.  
  18. ;
  19. ; customization section
  20. ;
  21.  
  22. (set #program       (cat "PhraseCompletion"))
  23. (set #documentation (cat "PhraseCompletion.doc"))
  24. (set #defdir        (cat "GoldED:API"))
  25. (set #defdirprompt  (cat "Where do the GoldED API clients belong"))
  26. (set #infomsg       (cat "Now run GoldED and activate " #program "\n"
  27.                                  "via GoldED's API requester"))
  28. ;
  29. ; independend Installer script
  30. ;
  31.  
  32. (set #procedure
  33.      (cat
  34.           "Please select the appropriate procedure:"
  35.      )
  36. )
  37.  
  38. (set #procedure-help
  39.      (cat
  40.           "You can select the Install procedure to install "
  41.           "all nessecary files for the " @app-name " to run.\n"
  42.           "Or select Remove to remove all previously installed "
  43.           "files of the " @app-name " from your system.\n\n"
  44.      )
  45. )
  46.  
  47. (set mode
  48.       (askchoice
  49.             (prompt #procedure)
  50.             (help (cat #procedure-help @askchoice-help))
  51.             (choices "Install" "Remove")
  52.       )
  53. )
  54.  
  55.  
  56. (if mode
  57.           (set pmode "Remove")
  58.           (set pmode "Install")
  59. )
  60.  
  61. ; get api dir
  62. (set apidir
  63.           (askdir
  64.                      (prompt #defdirprompt)
  65.                      (help @askdir-help)
  66.                      (default #defdir)
  67.           )
  68. )
  69.  
  70. ; now do install or remove
  71. (if mode
  72.      ; Remove
  73.      (
  74.           ; Show what we are doing
  75.           (working "Removing " @app-name)
  76.  
  77.           ; Remove the non-standard pieces
  78.           (delete (tackon apidir #program) (infos))
  79.           (delete (tackon apidir #documentation) (infos))
  80.  
  81.           ; Don't want to use the confusing "Installation Complete" message
  82.           ; when what we really did was remove things...
  83.           (message "The \"" @app-name "\" components "
  84.                       "that you specified have been successfully removed")
  85.           (exit (quiet))
  86.      )
  87.  
  88.      ; Install
  89.      (
  90.           (working "Installing " @app-name)
  91.  
  92.           ; Install the binary
  93.           (copyfiles
  94.                 (prompt "Copying the API client")
  95.                 (help @copyfiles-help)
  96.                 (source #program)
  97.                 (dest apidir)
  98.                 (infos)
  99.                 (confirm)
  100.           )
  101.  
  102.           (copyfiles
  103.                      (prompt "Copying the doc file")
  104.                      (help @copyfiles-help)
  105.                      (source #documentation)
  106.                      (dest apidir)
  107.                      (infos)
  108.                      (confirm)
  109.           )
  110.      )
  111. )
  112.  
  113. (set @default-dest apidir)
  114.  
  115. (message #infomsg)
  116.  
  117.